home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 6 / Amiga Format AFCD06 (Nov 1996, Issue 90).iso / serious / commercial / advex / dvescripts / dissolvetile.xdve < prev    next >
Text File  |  1995-06-21  |  2KB  |  96 lines
  1. /* Dissolvenza incrociata con piastrelizzazione in 50 frames */
  2.  
  3. ADDRESS "ADPro"
  4. OPTIONS RESULTS
  5.  
  6. TRUE  = 1
  7. FALSE = 0
  8. TmpIma = 'T:immagine'
  9. TmpIma2 = 'T:immagine2'
  10. DISSOLVE = 2
  11. DISSOLVE2 = 2
  12. INCREMENTO = 50
  13. NUMEROFRAME = 0
  14. NUMEROFRAME2 = 0
  15.  
  16. GETFILES '"Seleziona la immagine INIZIALE"'
  17.  IF RC ~= 0 THEN EXIT
  18.   PRIMA = ADPRO_RESULT
  19.    IF PRIMA = "" THEN EXIT
  20.     LOADER "UNIVERSAL" PRIMA
  21. SAVER "IFF" TmpIma "RAW"
  22.     XSIZE
  23.      BASE = ADPRO_RESULT
  24.   YSIZE
  25.    ALTZ = ADPRO_RESULT
  26.      FRAMES1 = ((ALTZ / 70) + 0.5)
  27.      FRAMES = TRUNC(FRAMES1)
  28.      FRAMES2 = FRAMES
  29.      POS = 0
  30.      SPOSTA = 2
  31.      
  32. GETFILES '"Seleziona la immagine FINALE"'
  33.  IF RC ~= 0 THEN EXIT
  34.   SECONDA = ADPRO_RESULT
  35.    IF SECONDA = "" THEN EXIT
  36.  LOADER "UNIVERSAL" SECONDA
  37.  OPERATOR "VERTICAL_FLIP"
  38.  OPERATOR "HORIZONTAL_FLIP"
  39.     XSIZE
  40.      BASE2 = ADPRO_RESULT
  41.     YSIZE
  42.      ALTZ2 = ADPRO_RESULT
  43. IF (BASE2 > BASE) | (ALTZ2 > ALTZ) THEN DO
  44.                           ABS_SCALE (BASE) (ALTZ)
  45.                           END
  46. IF (BASE2 < BASE) | (ALTZ2 < ALTZ) THEN DO
  47.                           ABS_SCALE (BASE) (ALTZ)
  48.                           END
  49.      SAVER "IFF" TmpIma2 "RAW"
  50.  
  51. GETfile '"Path e nomebase dei 50 FILES TEMPORANEI"'
  52. IF RC ~= 0 THEN EXIT
  53. PROVVISORIO = ADPRO_RESULT
  54. if PROVVISORIO = "" then exit
  55.  
  56. GETfile '"Path e nomebase 50 IMMAGINI FINITE"'
  57. IF RC ~= 0 THEN EXIT
  58. OUTFILE = ADPRO_RESULT
  59. if OUTFILE = "" then exit 
  60.  
  61.    DO i=1 to 50 
  62. LOADER "IFF" TmpIma
  63. OPERATOR Tile (POS) (POS) (BASE - FRAMES) (ALTZ - FRAMES) HORIZONTAL (SPOSTA)
  64.  FRAMES = (FRAMES + FRAMES2)
  65.    POS = (POS + 1)
  66.    SPOSTA = (SPOSTA + 2)
  67.     NUMEROFRAME = (NUMEROFRAME + 1)
  68.  SFORMAT "IFF"
  69.   SAVE (PROVVISORIO)||'.'||(NUMEROFRAME) "RAW"
  70. END
  71.   
  72.    FRAMES = FRAMES2
  73.     POS = 0
  74.      SPOSTA = 0
  75.      
  76.    DO i=1 to 50
  77. LOADER "IFF" TmpIma2
  78.  OPERATOR Tile (POS) (POS) (BASE - FRAMES) (ALTZ - FRAMES) HORIZONTAL (SPOSTA)
  79.   OPERATOR "VERTICAL_FLIP"
  80.   OPERATOR "HORIZONTAL_FLIP"
  81. LOADER "IFF" (PROVVISORIO)||'.'||(INCREMENTO) COMPOFFSET 0 0 (DISSOLVE)
  82.    FRAMES = (FRAMES + FRAMES2)
  83.     INCREMENTO = (INCREMENTO - 1)
  84.      DISSOLVE = (DISSOLVE + DISSOLVE2)
  85.    NUMEROFRAME2 = (NUMEROFRAME2 + 1)
  86. NUMERO2 = RIGHT(NUMEROFRAME2,3,'0')
  87.  SFORMAT "IFF"
  88.   SAVE (OUTFILE)||'.'||(NUMERO2) "RAW"
  89.   SAY "Salvo il frame Num." NUMERO
  90. END
  91.  
  92. ADDRESS COMMAND "Delete >NIL:" TmpIma
  93. ADDRESS COMMAND "Delete >NIL:" TmpIma2
  94. ADDRESS COMMAND "Delete >NIL:" (PROVVISORIO).#?
  95. EXIT
  96.